Những câu hỏi liên quan
Bo Bong
Xem chi tiết
đăng hiếu
30 tháng 12 2021 lúc 22:44

em chào chj ạ,chj check ib em vs ạ

 

Bình luận (1)
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:28

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,k,x;

int main()

{

cin>>n>>k;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

x=LLONG_MIN;

for (i=1; i<=n; i++)

if (a[i]>k) 

{

x=a[i];

break;

}

cout<<x<<" ";

for (i=1; i<=n; i++)

if (x==a[i]) cout<<i<<" ";

return 0;

}

Bình luận (1)
Hello1234
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 15:00

#include <bits/stdc++.h>

using namespace std;

int main()

{

long a[105], i,n,max,vt;

cout<<"n="; cin>>n;

for (i=1; i<=n; i++)

{

cout<<"A["<<i<<"]="; cin>>a[i];

}

max=a[1];

for (i=1; i<=n; i++)

if (max<a[i]) max=a[i];

vt=1;

for (i=1; i<=n; i++)

if (max==a[i]) vt=i;

cout<<max<<endl;

cout<<vt;

return 0;

}

 

Bình luận (1)
26-Do Thanh Trung
Xem chi tiết
Trần Trung Hiếu THCS Thá...
Xem chi tiết
Trần Trung Hiếu
Xem chi tiết
Nguyễn Tâm An
8 tháng 2 2022 lúc 21:45

t ko bt lm, ms k10

Bình luận (0)
 Khách vãng lai đã xóa
Võ Thị Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:30

uses crt;

var a:array[1..250]of integer;

n,i,t,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac so la boi cua 3 la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Bình luận (0)
nguyentienlam
Xem chi tiết
nguyentienlam
4 tháng 4 2023 lúc 15:21

cứu m vs

 

Bình luận (0)
huynh chinh
Xem chi tiết
huynh chinh
5 tháng 1 2023 lúc 18:42

PASCAL giups mik

 

Bình luận (0)
Nguyễn Xuân Dự
Xem chi tiết
Kiều Vũ Linh
12 tháng 5 2023 lúc 7:59

Bài 1

Var a:array:[1..1000] of integer;

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

write('Tong cac so la ',s);

Readln

End.

Bình luận (0)